home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / struct100.lha / Struct1.0 / SpeedTests / Test3.struct < prev    next >
Encoding:
Text File  |  1993-08-22  |  211 b   |  19 lines
  1. define procedure dendybar
  2. set startup dendybar
  3.  
  4. procedure dendybar
  5. local z:long,a:long,k:word
  6. data register z,a,k
  7. regload
  8. a=0
  9. for z=1;6000000
  10. k=z/2
  11. remainder k
  12. if k=0
  13. a=a+7
  14. else
  15. a=a+15
  16. end if
  17. next
  18. end procedure
  19.